home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / ICProgKit 1.3.sit / ICProgKit1.3 / APIs / ICKeys.p < prev    next >
Text File  |  1996-07-14  |  7KB  |  199 lines
  1. unit ICKeys;
  2.  
  3. (* ･･･Start Header･･･ *)
  4.  
  5. (* File:         ICKeys.p
  6.  * Generated by: 1.0d4
  7.  * For:          IC 1.3
  8.  * On:           Sunday, 14 July 1996, 20:19:55
  9.  * 
  10.  * This file is part of the Internet Configuration system and
  11.  * is placed in the public domain for the benefit of all.
  12.  *)
  13.  
  14. (* ･･･End Header･･･ *)
  15.  
  16. interface
  17.  
  18.     uses
  19. {$ifc undefined THINK_Pascal}
  20.         Types, Files, QuickDraw,
  21. {$endc}
  22.         AppleTalk, Aliases;
  23.  
  24.     const
  25. (* ･･･Start ICKeys.p･･･ *)
  26.  
  27.     kICRealName = 'RealName';  (* PString *)
  28.     kICEmail = 'Email';  (* PString -- user@host.domain *)
  29.     kICMailAccount = 'MailAccount';  (* PString -- user@host.domain *)
  30.     kICMailPassword = 'MailPassword';  (* PString -- scrambled *)
  31.     kICNewsAuthUsername = 'NewsAuthUsername';  (* PString *)
  32.     kICNewsAuthPassword = 'NewsAuthPassword';  (* PString -- scrambled *)
  33.     kICArchiePreferred = 'ArchiePreferred';  (* PString -- formatted *)
  34.     kICArchieAll = 'ArchieAll';  (* STR# -- formatted *)
  35.     kICUMichPreferred = 'UMichPreferred';  (* PString -- formatted *)
  36.     kICUMichAll = 'UMichAll';  (* STR# -- formatted *)
  37.     kICInfoMacPreferred = 'InfoMacPreferred';  (* PString -- formatted *)
  38.     kICInfoMacAll = 'InfoMacAll';  (* STR# -- formatted *)
  39.     kICPhHost = 'PhHost';  (* PString -- host.domain *)
  40.     kICWhoisHost = 'WhoisHost';  (* PString -- host.domain *)
  41.     kICFingerHost = 'FingerHost';  (* PString -- host.domain *)
  42.     kICFTPHost = 'FTPHost';  (* PString -- host.domain *)
  43.     kICTelnetHost = 'TelnetHost';  (* PString -- host.domain *)
  44.     kICSMTPHost = 'SMTPHost';  (* PString -- host.domain *)
  45.     kICNNTPHost = 'NNTPHost';  (* PString -- host.domain *)
  46.     kICGopherHost = 'GopherHost';  (* PString -- host.domain *)
  47.     kICLDAPServer = 'LDAPServer';  (* PString -- host.domain *)
  48.     kICLDAPSearchbase = 'LDAPSearchbase';  (* PString -- string LDAP thing *)
  49.     kICWWWHomePage = 'WWWHomePage';  (* PString -- URL *)
  50.     kICWAISGateway = 'WAISGateway';  (* PString -- no idea *)
  51.     kICListFont = 'ListFont';  (* ICFontRecord *)
  52.     kICScreenFont = 'ScreenFont';  (* ICFontRecord *)
  53.     kICPrinterFont = 'PrinterFont';  (* ICFontRecord *)
  54.     kICDownloadFolder = 'DownloadFolder';  (* ICFileSpec *)
  55.     kICSignature = 'Signature';  (* TEXT *)
  56.     kICOrganization = 'Organization';  (* PString *)
  57.     kICPlan = 'Plan';  (* TEXT *)
  58.     kICQuotingString = 'QuotingString';  (* PString *)
  59.     kICMailHeaders = 'MailHeaders';  (* TEXT *)
  60.     kICNewsHeaders = 'NewsHeaders';  (* TEXT *)
  61.     kICMapping = 'Mapping';  (* ICMapEntries *)
  62.     kICCharacterSet = 'CharacterSet';  (* ICCharTable *)
  63.     kICHelper = 'Helper･';  (* ICAppSpec *)
  64.     kICServices = 'Services';  (* ICServices *)
  65.     kICNewMailFlashIcon = 'NewMailFlashIcon';  (* Boolean *)
  66.     kICNewMailDialog = 'NewMailDialog';  (* Boolean *)
  67.     kICNewMailPlaySound = 'NewMailPlaySound';  (* Boolean *)
  68.     kICNewMailSoundName = 'NewMailSoundName';  (* PString *)
  69.     kICWebBackgroundColour = 'WebBackgroundColour';  (* RGBColor *)
  70.     kICNoProxyDomains = 'NoProxyDomains';  (* STR# -- list of domains *)
  71.     kICUseSocks = 'UseSocks';  (* Boolean *)
  72.     kICSocksHost = 'SocksHost';  (* PString -- host.domain *)
  73.     kICUseHTTPProxy = 'UseHTTPProxy';  (* Boolean *)
  74.     kICHTTPProxyHost = 'HTTPProxyHost';  (* PString -- host.domain *)
  75.     kICUseGopherProxy = 'UseGopherProxy';  (* Boolean *)
  76.     kICGopherProxyHost = 'GopherProxyHost';  (* PString -- host.domain *)
  77.     kICUseFTPProxy = 'UseFTPProxy';  (* Boolean *)
  78.     kICFTPProxyHost = 'FTPProxyHost';  (* PString -- host.domain *)
  79.     kICFTPProxyUser = 'FTPProxyUser';  (* PString *)
  80.     kICFTPProxyPassword = 'FTPProxyPassword';  (* PString -- scrambled *)
  81.     kICFTPProxyAccount = 'FTPProxyAccount';  (* PString *)
  82.     kICUsePassiveFTP = 'UsePassiveFTP';  (* Boolean *)
  83.  
  84. (* ･･･End ICKeys.p･･･ *)
  85.  
  86. {$PUSH}
  87. {$ALIGN MAC68K}
  88.  
  89.     type
  90.         ICFontRecord = record
  91.                 size: integer;
  92.                 face: Style;
  93.                 font: Str255;
  94.             end;
  95.         ICFontRecordPtr = ^ICFontRecord;
  96.         ICFontRecordHandle = ^ICFontRecordPtr;
  97.  
  98.         ICCharTable = record
  99.                 net_to_mac: packed array[char] of char;
  100.                 mac_to_net: packed array[char] of char;
  101.             end;
  102.         ICCharTablePtr = ^ICCharTable;
  103.         ICCharTableHandle = ^ICCharTablePtr;
  104.  
  105.         ICAppSpec = record
  106.                 fCreator: OSType;
  107.                 name: Str63;
  108.             end;
  109.         ICAppSpecPtr = ^ICAppSpec;
  110.         ICAppSpecHandle = ^ICAppSpecPtr;
  111.  
  112.         ICFileInfo = record
  113.                 fType: OSType;
  114.                 fCreator: OSType;
  115.                 name: Str63;
  116.             end;
  117.         ICFileInfoPtr = ^ICFileInfo;
  118.         ICFileInfoHandle = ^ICFileInfoPtr;
  119.  
  120.         ICFileSpec = record
  121.                 vol_name: Str31;
  122.                 vol_creation_date: longint;
  123.                 fss: FSSpec;                    (* vRefNum field is of no value *)
  124.                 alias: AliasRecord;     (* plus extra data, aliasSize 0 means no alias manager present when ICFileSpecification was created *)
  125.             end;
  126.         ICFileSpecPtr = ^ICFileSpec;
  127.         ICFileSpecHandle = ^ICFileSpecPtr;
  128.     const
  129.         ICfile_spec_header_size = sizeof(ICFileSpec) - sizeof(AliasRecord);
  130.  
  131.     type
  132.         ICMapEntry = record
  133.                 total_length: integer;            (* from beginning of record *)
  134.                 fixed_length: integer;            (* from beginning of record *)
  135.                 version: integer;
  136.                 file_type: OSType;
  137.                 file_creator: OSType;
  138.                 post_creator : OSType;
  139.                 flags: longint;
  140.                 (* variable part starts here *)
  141.                 extension: Str255;                    (* these strings are tightly packed *)
  142.                 creator_app_name: Str255;        (* which means, these ones might have an *)
  143.                 post_app_name : Str255;            (* odd address *)
  144.                 MIME_type: Str255;                    
  145.                 entry_name: Str255;
  146.             end;
  147.         ICMapEntryPtr = ^ICMapEntry;
  148.         ICMapEntryHandle = ^ICMapEntryPtr;
  149.  
  150.     const
  151.         (* bits and masks for the flags of the ICMapEntry *)
  152.         ICmap_binary_bit = 0;                    (* file should be transfered in binary as opposed to text mode *)
  153.         ICmap_binary_mask = $00000001;
  154.         ICmap_resource_fork_bit = 1;        (* the resource fork of the file is significant *)
  155.         ICmap_resource_fork_mask = $00000002;
  156.         ICmap_data_fork_bit = 2;                (* the data fork of the file is significant *)
  157.         ICmap_data_fork_mask = $00000004;
  158.  
  159.         ICmap_post_bit = 3;                            (* post process using post fields *)
  160.         ICmap_post_mask = $00000008;
  161.  
  162.         ICmap_not_incoming_bit = 4;            (* ignore this mapping for incoming files *)
  163.         ICmap_not_incoming_mask = $00000010;
  164.         ICmap_not_outgoing_bit = 5;            (* ignore this mapping for outgoing files *)
  165.         ICmap_not_outgoing_mask = $00000020;
  166.  
  167.         ICmap_fixed_length = 22;                (* number in fixed_length field *)
  168.         
  169.     type
  170.         ICServiceEntry = record
  171.                 name: Str255;                        (* this strings is tightly packed *)
  172.                 port: integer;                        (* which means, these fields might have an *)
  173.                 flags: integer;                        (* odd address *)
  174.             end;
  175.         ICServiceEntryPtr = ^ICServiceEntry;
  176.         ICServiceEntryHandle = ICServiceEntryPtr;
  177.  
  178.         ICServices = record
  179.                 count: integer;
  180.                 services: array[1..1] of ICServiceEntry;        (* this array is packed, so you can't index it directly *)
  181.             end;
  182.         ICServicesPtr = ^ICServices;
  183.         ICServicesHandle = ^ICServicesPtr;
  184.  
  185.     const
  186.         (* bits and masks for the flags of the ICServiceEntry *)
  187.         ICservices_tcp_bit = 0;                (* this is a TCP service *)
  188.         ICservices_tcp_mask = $00000001;
  189.         ICservices_udp_bit = 1;                (* this is a UDP service *)
  190.         ICservices_udp_mask = $00000002;
  191.         (* both bits can be set, which means the service is both TCP and UDP, eg daytime *)
  192.  
  193. {$ALIGN RESET}
  194. {$POP}
  195.  
  196. implementation
  197.  
  198. end. (* ICKeys *)
  199.